home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)sd.d64 / super demo (.txt) < prev    next >
Commodore BASIC  |  2009-02-04  |  3KB  |  125 lines
  1. 10 POKE 52,48: POKE 56,48: CLR
  2. 100 REM CONSTANTS
  3. 110 V=53248: PT=2040
  4. 115 POKEV+21,0:POKEV+16,0
  5. 120 CX=160: CY=125
  6. 130 ZX=24: ZY=50
  7. 140 MX=ZX+320: MY=ZY+200
  8. 145 PRINT"[147][144]READING SPRITE DATA"
  9. 150 GOSUB 19000
  10. 200 REM SET UP SCREEN
  11. 210 POKE V+32,2
  12. 220 POKE V+33,1
  13. 225 PRINT"[147]"
  14. 230 FORI=0TO6
  15. 240 :POKEPT+I,192+I
  16. 250 NEXT
  17. 260 POKE V+23,254: POKE V+29,254
  18. 270 CR=V+39: POKE CR+0,0
  19. 280 POKE CR+1,0
  20. 290 POKE CR+2,0
  21. 300 POKE CR+3,3
  22. 310 POKE CR+4,4
  23. 320 POKE CR+5,6
  24. 330 POKE CR+6,7
  25. 400 REM POSITION AND MOVE SPR 0
  26. 405 POKEV+21,1
  27. 410 POKE V+0,ZX: POKE V+1,CY
  28. 420 FOR X=ZX TO CX
  29. 430 :POKE V+0,X
  30. 440 NEXT
  31. 450 GOSUB 1000: POKEV+23,255
  32. 460 GOSUB 1000: POKEV+29,255
  33. 470 GOSUB 1000: POKEV+28,1
  34. 480 GOSUB 1000: POKEV+28,0
  35. 500 REM POSITION AND MOVE SPR 3
  36. 510 POKE V+6,ZX: POKE V+7,ZY
  37. 515 POKE V+21,9
  38. 516 SL=(CY-ZY)/(CX-ZX)
  39. 520 FOR X=ZX TO CX
  40. 530 :Y=ZY+INT(SL*(X-ZX)+.5): POKE V+6,X: POKE V+7,Y
  41. 540 NEXT
  42. 600 REM POSITION & MOVE SPR 5
  43. 610 POKE V+10,CX: POKE V+11,ZY
  44. 620 POKE V+21,41
  45. 630 FOR Y=ZY TO MY
  46. 640 :POKE V+11,Y
  47. 650 NEXT
  48. 660 FOR Y=MY TO CY STEP -1
  49. 670 :POKE V+11,Y
  50. 680 NEXT
  51. 700 REM POSITION & MOVE SPR 6
  52. 710 POKE V+16,64
  53. 720 POKE V+12,MXAND255:POKEV+13,CY
  54. 725 POKEV+21,41+64
  55. 730 FOR X=MX TO ZX STEP -1
  56. 740 :POKE V+12,XAND255: IFX=255THENPOKEV+16,0
  57. 750 NEXT
  58. 760 FOR X=ZX TO CX
  59. 770 :POKE V+12,X
  60. 780 NEXT
  61. 900 GOSUB 1000
  62. 999 END
  63. 1000 GETT$:IFT$=""THEN1000
  64. 1010 RETURN
  65. 9999 END
  66. 19000 MEM=12288:FORI= 0 TO 55 :FORJ=0TO7
  67. 19010 READXX:POKEMEM+I*8+J,XX:NEXTJ,I
  68. 19020 RETURN
  69. 19030 DATA0,28,0,0,34,0,0,65
  70. 19040 DATA0,3,156,224,4,162,144,4
  71. 19050 DATA162,144,7,156,240,8,65,8
  72. 19060 DATA19,42,100,36,148,146,36,162
  73. 19070 DATA146,36,148,146,19,42,100,8
  74. 19080 DATA65,8,7,156,240,4,162,144
  75. 19090 DATA4,162,144,3,156,224,0,65
  76. 19100 DATA0,0,34,0,0,28,0,148
  77. 19110 DATA255,227,255,255,221,255,255,190
  78. 19120 DATA255,252,99,31,251,93,111,251
  79. 19130 DATA93,111,248,99,15,247,190,247
  80. 19140 DATA236,213,155,219,107,109,219,93
  81. 19150 DATA109,219,107,109,236,213,155,247
  82. 19160 DATA190,247,248,99,15,251,93,111
  83. 19170 DATA251,93,111,252,99,31,255,190
  84. 19180 DATA255,255,221,255,255,227,255,158
  85. 19190 DATA0,0,0,0,28,0,0,62
  86. 19200 DATA0,0,99,0,3,93,96,3
  87. 19210 DATA93,96,0,99,0,7,190,240
  88. 19220 DATA12,213,152,27,107,108,27,93
  89. 19230 DATA108,27,107,108,12,213,152,7
  90. 19240 DATA190,240,0,99,0,3,93,96
  91. 19250 DATA3,93,96,0,99,0,0,62
  92. 19260 DATA0,0,28,0,0,0,0,255
  93. 19270 DATA0,0,0,0,28,0,0,62
  94. 19280 DATA0,0,99,0,0,65,0,0
  95. 19290 DATA65,0,0,99,0,7,190,240
  96. 19300 DATA12,213,152,24,99,12,24,65
  97. 19310 DATA12,24,99,12,12,213,152,7
  98. 19320 DATA190,240,0,99,0,0,65,0
  99. 19330 DATA0,65,0,0,99,0,0,62
  100. 19340 DATA0,0,28,0,0,0,0,255
  101. 19350 DATA0,0,0,0,0,0,0,0
  102. 19360 DATA0,0,0,0,3,28,96,3
  103. 19370 DATA28,96,0,0,0,0,0,0
  104. 19380 DATA0,0,0,3,8,96,3,28
  105. 19390 DATA96,3,8,96,0,0,0,0
  106. 19400 DATA0,0,0,0,0,3,28,96
  107. 19410 DATA3,28,96,0,0,0,0,0
  108. 19420 DATA0,0,0,0,0,0,0,255
  109. 19430 DATA0,0,0,0,0,0,0,0
  110. 19440 DATA0,0,0,0,0,28,0,0
  111. 19450 DATA28,0,0,0,0,0,0,0
  112. 19460 DATA0,0,0,3,0,96,3,0
  113. 19470 DATA96,3,0,96,0,0,0,0
  114. 19480 DATA0,0,0,0,0,0,28,0
  115. 19490 DATA0,28,0,0,0,0,0,0
  116. 19500 DATA0,0,0,0,0,0,0,255
  117. 19510 DATA0,0,0,0,0,0,0,0
  118. 19520 DATA0,0,0,0,3,0,96,3
  119. 19530 DATA0,96,0,0,0,0,0,0
  120. 19540 DATA0,0,0,0,8,0,0,28
  121. 19550 DATA0,0,8,0,0,0,0,0
  122. 19560 DATA0,0,0,0,0,3,0,96
  123. 19570 DATA3,0,96,0,0,0,0,0
  124. 19580 DATA0,0,0,0,0,0,0,255
  125.